home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_94141.txt < prev    next >
Text File  |  1989-08-22  |  14KB  |  655 lines
  1. -- background: 94141 from stack: in
  2. -- bmap block id: 94261
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.4.1 Practice3
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.  
  10.   send mouseUp to bg btn "done"
  11.   get line (line 2 of fld "key") of answerTracker
  12.   repeat with i = 1 to 6
  13.     if it = "y" and i = line 1 of fld "key"
  14.     then set the hilite of bg btn ("graphic" & i) to true
  15.   else set the hilite of bg btn ("graphic" & i) to false
  16. end repeat
  17. if it = "y" and line 1 of fld "key" = 7 then
  18.   set the hilite of bg btn "graphic1" to true
  19.   set the hilite of bg btn "graphic6" to true
  20. end if
  21. pass openCard
  22. end openCard
  23.  
  24. on hideFeedback
  25.   lock screen
  26.   hide fld "Feedback1"
  27.   hide fld "Feedback2"
  28.   hide fld "Feedback3"
  29.   hide fld "Feedback4"
  30.   hide fld "Feedback5"
  31.   hide fld "Feedback6"
  32.   hide fld "CorrectAnswer"
  33.   hide fld "MasterFeedback"
  34.   hide bg btn "Done"
  35.   unlock screen
  36. end hideFeedback
  37.  
  38. on showFeedback
  39.   lock screen
  40.   show fld "Feedback1"
  41.   show fld "Feedback2"
  42.   show fld "Feedback3"
  43.   show fld "Feedback4"
  44.   show fld "Feedback5"
  45.   show fld "Feedback6"
  46.   show fld "CorrectAnswer"
  47.   show fld "MasterFeedback"
  48.   show bg btn "Done"
  49.   unlock screen
  50. end showFeedback
  51.  
  52. on feedback
  53.   global answerTracker
  54.   lock screen
  55.  
  56.   get last char of the short name of the target
  57.   if line 1 of fld "key" ‚↠7 and line (line 2 of fld "key") of answerTracker ‚↠"y" then
  58.     -- don't overwrite if Q has been answered
  59.     if it = line 1 of fld "key" then
  60.       -- this is the correct answer
  61.       put "y" into line (line 2 of fld "key") of answerTracker
  62.     else put "n" into line (line 2 of fld "key") of answerTracker
  63.   else
  64.     if it = 1 or it = 6
  65.     then put "y" into line (line 2 of fld "key") of answerTracker
  66.   end if
  67.  
  68.   put fld ("feedback" & it) into fld "masterFeedback"
  69.   show fld "masterFeedback"
  70.   show bg btn "Done"
  71.  
  72.   unlock screen
  73. end feedback
  74.  
  75.  
  76. -- part 41 (field)
  77. -- low flags: 01
  78. -- high flags: 0000
  79. -- rect: left=106 top=172 right=209 bottom=165
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 156
  84. -- text size: 16
  85. -- style flags: 0
  86. -- line height: 17
  87. -- part name: Label1
  88.  
  89.  
  90. -- part 3 (field)
  91. -- low flags: 01
  92. -- high flags: 0000
  93. -- rect: left=18 top=1 right=38 bottom=442
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 156
  98. -- text size: 24
  99. -- style flags: 10240
  100. -- line height: 32
  101. -- part name: Title
  102.  
  103.  
  104. -- part 5 (field)
  105. -- low flags: 81
  106. -- high flags: 0001
  107. -- rect: left=423 top=0 right=13 bottom=466
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 65535
  111. -- font id: 4
  112. -- text size: 9
  113. -- style flags: 0
  114. -- line height: 12
  115. -- part name: CardTitle
  116.  
  117.  
  118. -- part 14 (button)
  119. -- low flags: 00
  120. -- high flags: 0000
  121. -- rect: left=443 top=5 right=72 bottom=512
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Instant Reference
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   instantReference "2.4.1"
  133. end mouseUp
  134.  
  135.  
  136. -- part 15 (button)
  137. -- low flags: 00
  138. -- high flags: 2000
  139. -- rect: left=480 top=143 right=172 bottom=511
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 1310 / 1310
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: Student Services
  148. ----- HyperTalk script -----
  149. on mousedown
  150.   SSpopUp
  151. end mousedown
  152.  
  153. on mouseup
  154.   if the mouseloc is not within the rect of me then exit to hyperCard
  155.   doSS
  156. end mouseup
  157.  
  158.  
  159.  
  160. -- part 16 (button)
  161. -- low flags: 00
  162. -- high flags: 2000
  163. -- rect: left=482 top=176 right=205 bottom=511
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 162 / 162
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Help
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   Help
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 17 (button)
  180. -- low flags: 00
  181. -- high flags: 2000
  182. -- rect: left=482 top=294 right=320 bottom=509
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 1236 / 1236
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Last Menu
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   go cd "Network Services P/1"
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 18 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=478 top=319 right=341 bottom=498
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 1238 / 1238
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Prev
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   lock screen
  213.   go prev
  214.   unlock screen with scroll right
  215. end mouseUp
  216.  
  217.  
  218. -- part 19 (button)
  219. -- low flags: 00
  220. -- high flags: 2000
  221. -- rect: left=493 top=319 right=341 bottom=512
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 1237 / 1237
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Next
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   lock screen
  233.   go next
  234.   unlock screen with scroll left
  235. end mouseUp
  236.  
  237.  
  238. -- part 21 (field)
  239. -- low flags: 01
  240. -- high flags: 0000
  241. -- rect: left=16 top=38 right=67 bottom=438
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 0
  245. -- font id: 156
  246. -- text size: 20
  247. -- style flags: 0
  248. -- line height: 26
  249. -- part name: Subtitle
  250.  
  251.  
  252. -- part 22 (field)
  253. -- low flags: 01
  254. -- high flags: 0000
  255. -- rect: left=16 top=70 right=145 bottom=445
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 0
  259. -- font id: 156
  260. -- text size: 16
  261. -- style flags: 0
  262. -- line height: 17
  263. -- part name: Question
  264.  
  265.  
  266. -- part 33 (field)
  267. -- low flags: 81
  268. -- high flags: 2007
  269. -- rect: left=8 top=36 right=94 bottom=231
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 0
  273. -- font id: 156
  274. -- text size: 16
  275. -- style flags: 0
  276. -- line height: 17
  277. -- part name: Feedback1
  278.  
  279.  
  280. -- part 52 (field)
  281. -- low flags: 01
  282. -- high flags: 0000
  283. -- rect: left=16 top=144 right=164 bottom=445
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 10
  289. -- style flags: 256
  290. -- line height: 15
  291. -- part name: Instruction
  292.  
  293.  
  294. -- part 34 (field)
  295. -- low flags: 81
  296. -- high flags: 2007
  297. -- rect: left=8 top=97 right=155 bottom=231
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 0
  301. -- font id: 156
  302. -- text size: 16
  303. -- style flags: 0
  304. -- line height: 17
  305. -- part name: Feedback2
  306.  
  307.  
  308. -- part 35 (field)
  309. -- low flags: 81
  310. -- high flags: 2007
  311. -- rect: left=8 top=159 right=216 bottom=231
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 0
  315. -- font id: 156
  316. -- text size: 16
  317. -- style flags: 0
  318. -- line height: 17
  319. -- part name: Feedback3
  320.  
  321.  
  322. -- part 36 (field)
  323. -- low flags: 81
  324. -- high flags: 2007
  325. -- rect: left=8 top=219 right=277 bottom=231
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 0
  329. -- font id: 156
  330. -- text size: 16
  331. -- style flags: 0
  332. -- line height: 17
  333. -- part name: Feedback4
  334.  
  335.  
  336. -- part 42 (field)
  337. -- low flags: 01
  338. -- high flags: 0000
  339. -- rect: left=314 top=172 right=207 bottom=390
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 0
  343. -- font id: 156
  344. -- text size: 16
  345. -- style flags: 0
  346. -- line height: 17
  347. -- part name: Label2
  348.  
  349.  
  350. -- part 43 (field)
  351. -- low flags: 01
  352. -- high flags: 0000
  353. -- rect: left=106 top=217 right=254 bottom=182
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 0
  357. -- font id: 156
  358. -- text size: 16
  359. -- style flags: 0
  360. -- line height: 17
  361. -- part name: Label3
  362.  
  363.  
  364. -- part 48 (button)
  365. -- low flags: 00
  366. -- high flags: 2000
  367. -- rect: left=59 top=213 right=255 bottom=229
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: Graphic2
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   feedback
  379. end mouseUp
  380.  
  381.  
  382. -- part 38 (field)
  383. -- low flags: 81
  384. -- high flags: 2007
  385. -- rect: left=8 top=280 right=338 bottom=231
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 0
  389. -- font id: 156
  390. -- text size: 16
  391. -- style flags: 0
  392. -- line height: 17
  393. -- part name: CorrectAnswer
  394.  
  395.  
  396. -- part 50 (button)
  397. -- low flags: 00
  398. -- high flags: 2000
  399. -- rect: left=268 top=168 right=210 bottom=444
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 1
  403. -- font id: 0
  404. -- text size: 12
  405. -- style flags: 0
  406. -- line height: 16
  407. -- part name: Graphic4
  408. ----- HyperTalk script -----
  409. on mouseUp
  410.   feedback
  411. end mouseUp
  412.  
  413.  
  414. -- part 45 (field)
  415. -- low flags: 01
  416. -- high flags: 0000
  417. -- rect: left=106 top=262 right=300 bottom=213
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 0
  421. -- font id: 156
  422. -- text size: 16
  423. -- style flags: 0
  424. -- line height: 17
  425. -- part name: label5
  426.  
  427.  
  428. -- part 44 (field)
  429. -- low flags: 01
  430. -- high flags: 0000
  431. -- rect: left=314 top=217 right=254 bottom=449
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 0
  435. -- font id: 156
  436. -- text size: 16
  437. -- style flags: 0
  438. -- line height: 17
  439. -- part name: Label4
  440.  
  441.  
  442. -- part 51 (button)
  443. -- low flags: 00
  444. -- high flags: 2000
  445. -- rect: left=270 top=213 right=255 bottom=444
  446. -- title width / last selected line: 0
  447. -- icon id / first selected line: 0 / 0
  448. -- text alignment: 1
  449. -- font id: 0
  450. -- text size: 12
  451. -- style flags: 0
  452. -- line height: 16
  453. -- part name: Graphic5
  454. ----- HyperTalk script -----
  455. on mouseUp
  456.   feedback
  457. end mouseUp
  458.  
  459.  
  460. -- part 64 (field)
  461. -- low flags: 01
  462. -- high flags: 0000
  463. -- rect: left=315 top=262 right=299 bottom=391
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 0 / 0
  466. -- text alignment: 0
  467. -- font id: 156
  468. -- text size: 16
  469. -- style flags: 0
  470. -- line height: 17
  471. -- part name: label6
  472.  
  473.  
  474. -- part 65 (button)
  475. -- low flags: 00
  476. -- high flags: 2000
  477. -- rect: left=269 top=258 right=300 bottom=444
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: Graphic6
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   feedback
  489. end mouseUp
  490.  
  491.  
  492. -- part 53 (button)
  493. -- low flags: 00
  494. -- high flags: A004
  495. -- rect: left=179 top=321 right=340 bottom=324
  496. -- title width / last selected line: 0
  497. -- icon id / first selected line: 0 / 0
  498. -- text alignment: 1
  499. -- font id: 0
  500. -- text size: 12
  501. -- style flags: 0
  502. -- line height: 16
  503. -- part name: Answer
  504. ----- HyperTalk script -----
  505. on mouseUp
  506.   global answerTracker
  507.   lock screen
  508.   put "y" into line (line 2 of fld "key") of answerTracker
  509.   put fld "CorrectAnswer" into fld "MasterFeedback"
  510.   show fld "MasterFeedback"
  511.   show bg btn "Done"
  512.   unlock screen
  513. end mouseUp
  514.  
  515.  
  516. -- part 61 (field)
  517. -- low flags: 81
  518. -- high flags: 2007
  519. -- rect: left=238 top=32 right=89 bottom=461
  520. -- title width / last selected line: 0
  521. -- icon id / first selected line: 0 / 0
  522. -- text alignment: 0
  523. -- font id: 156
  524. -- text size: 16
  525. -- style flags: 0
  526. -- line height: 17
  527. -- part name: Feedback5
  528.  
  529.  
  530. -- part 63 (button)
  531. -- low flags: 00
  532. -- high flags: 2000
  533. -- rect: left=482 top=208 right=234 bottom=509
  534. -- title width / last selected line: 0
  535. -- icon id / first selected line: 1234 / 1234
  536. -- text alignment: 1
  537. -- font id: 0
  538. -- text size: 12
  539. -- style flags: 0
  540. -- line height: 16
  541. -- part name: Lesson
  542. ----- HyperTalk script -----
  543. on mouseUp
  544.   lesson "2.4.1"
  545. end mouseUp
  546.  
  547.  
  548. -- part 66 (field)
  549. -- low flags: 81
  550. -- high flags: 2007
  551. -- rect: left=238 top=97 right=154 bottom=461
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 0
  555. -- font id: 156
  556. -- text size: 16
  557. -- style flags: 0
  558. -- line height: 17
  559. -- part name: Feedback6
  560.  
  561.  
  562. -- part 47 (button)
  563. -- low flags: 00
  564. -- high flags: 2000
  565. -- rect: left=59 top=168 right=210 bottom=229
  566. -- title width / last selected line: 0
  567. -- icon id / first selected line: 0 / 0
  568. -- text alignment: 1
  569. -- font id: 0
  570. -- text size: 12
  571. -- style flags: 0
  572. -- line height: 16
  573. -- part name: Graphic1
  574. ----- HyperTalk script -----
  575. on mouseUp
  576.   feedback
  577. end mouseUp
  578.  
  579.  
  580. -- part 49 (button)
  581. -- low flags: 00
  582. -- high flags: 2000
  583. -- rect: left=59 top=258 right=300 bottom=229
  584. -- title width / last selected line: 0
  585. -- icon id / first selected line: 0 / 0
  586. -- text alignment: 1
  587. -- font id: 0
  588. -- text size: 12
  589. -- style flags: 0
  590. -- line height: 16
  591. -- part name: Graphic3
  592. ----- HyperTalk script -----
  593. on mouseUp
  594.   feedback
  595. end mouseUp
  596.  
  597.  
  598. -- part 39 (field)
  599. -- low flags: 81
  600. -- high flags: 2004
  601. -- rect: left=147 top=132 right=304 bottom=356
  602. -- title width / last selected line: 0
  603. -- icon id / first selected line: 0 / 0
  604. -- text alignment: 0
  605. -- font id: 156
  606. -- text size: 16
  607. -- style flags: 0
  608. -- line height: 17
  609. -- part name: MasterFeedback
  610.  
  611.  
  612. -- part 40 (button)
  613. -- low flags: 80
  614. -- high flags: A002
  615. -- rect: left=215 top=279 right=296 bottom=284
  616. -- title width / last selected line: 0
  617. -- icon id / first selected line: 0 / 0
  618. -- text alignment: 1
  619. -- font id: 0
  620. -- text size: 12
  621. -- style flags: 0
  622. -- line height: 16
  623. -- part name: Done
  624. ----- HyperTalk script -----
  625. on mouseUp
  626.   global answerTracker
  627.   lock screen
  628.   if line (line 2 of fld "key") of answerTracker = "y" then
  629.     -- question correctly answered
  630.     if line 1 of fld "key" ‚↠7 then
  631.       set the hilite of bg btn ("graphic" & line 1 of fld "key") to true
  632.     else
  633.       set the hilite of bg btn ("graphic1") to true
  634.       set the hilite of bg btn ("graphic6") to true
  635.     end if
  636.   end if
  637.   hide fld "MasterFeedback"
  638.   hide bg btn "Done"
  639.   unlock screen
  640. end mouseUp
  641.  
  642.  
  643. -- part 67 (field)
  644. -- low flags: 81
  645. -- high flags: 0002
  646. -- rect: left=1 top=306 right=341 bottom=34
  647. -- title width / last selected line: 0
  648. -- icon id / first selected line: 0 / 0
  649. -- text alignment: 0
  650. -- font id: 3
  651. -- text size: 12
  652. -- style flags: 0
  653. -- line height: 16
  654. -- part name: key
  655.